﻿Class Window1
  Private Sub Border1_MouseUp(
      ByVal sender As Object,
      ByVal e As System.Windows.Input.MouseButtonEventArgs) _
      Handles Border1.MouseUp
    MessageBox.Show("OK!")
  End Sub
End Class
